# Usage: standard_french.tcl

if {![info exists eWorkDir]} {set eWorkDir [file dirname [info script]]}

package require DPeye

create {
	sourceFile standard.tcl
	outputFile standard_french.ps 
	mapFile standard_french.map
	fileEncoding iso8859-1
	title "diplomacy map (regular map in french)"
	powerNameVariations {definite adjustments}
	powers {
		Austria {{} {} {} "L'Autriche"}
		England {{} {} {} "L'Angleterre"}
		France {{} {} {} "La France"}
		Germany {{} {} {} "L'Allemagne"}
		Italy {{} {} {} "L'Italie"}
		Russia {{} {} {} "La Russie"}
		Turkey {{} {} {} "La Turquie"}
	}
	boardTitle Diplomacy gameTitle {Diplomacy, Printemps 1900} retreatHeading Retraites adjustmentHeading Ajustements ownerHeading Arsenaux orderHeading Ordres
	terms {
		"Game Start" "D\u00e9but du Jeu" 
		unowned inoccup\u00e9s 
		builds construit 
		removes enl\u00e8ve 
		waived renonc\u00e9e 
		hidden "en secret"
		disband d\u00e9manteler 
		cut coup\u00e9e 
		bounce rebond 
		dislodged d\u00e9log\u00e9e 
		destroyed d\u00e9truite 
		void vide 
		illegal ill\u00e9gal 
		"no convoy" "pas de convoi"
		found appara\u00eet 
		lost dispara\u00eet
	}
	addPage 0 pageContents {
		"(Fran\u00e7ais, D\u00e9but du Jeu) DrawTitle"
		"OwnerReport"
		"(AUTRICHE   (2/2)   PAR VIE) WriteOwner"
		"(INOCCUP\u00c9S          BEL NVG SU\u00c8 POR BUL GR\u00c8) WriteOwner"
		"OrderReport"
		"(ALLEMAGNE) WriteOrder"
		"( A MAR S MMO - ESP/CS D\u00c9LOG\u00c9E) WriteOrder"
		"( F GR\u00c8 S NOI - BUL/CE COUP\u00c9) WriteOrder"
		"( F MMO - ESP/CS       REBOND) WriteOrder"
		"( F NOI - BUL/CE       D\u00c9TRUITE) WriteOrder"
		"( F BAR C SYR - SWI    VIDE) WriteOrder"
		"( A SYR - TUN          PAS DE CONVOI) WriteOrder"
		"RetreatReport"
		"(FRANCE     A WAR - LVN    D\u00c9TRUITE) WriteRetreat"
		"(ANGLETERRE F \u00c9DI D\u00c9MANTELER) WriteRetreat"
		"AdjustReport"
		"(ALLEMAGNE  CONSTRUIT RENONC\u00c9E) WriteAdjust"
		"(RUSSIE     CONSTRUIT F STP/CN) WriteAdjust"
		"(TURQUIE    ENL\u00c8VE    F OAC, A PDG, F GDL) WriteAdjust"
		
		"\{"

		"200 40 DrawFleet"
		"200 40 180 140 ArrowPropose"
		"200 40 100 20 ArrowRetreat"
		"200 40 300 60 ArrowMove"
		
		"180 140 DrawArmy"
		"ProposePhase"
		"180 140 160 240 ArrowMove"
		"RetreatPhase"
		"180 140 80 120 ArrowMove"
		"MovePhase"
		"180 140 280 160 ArrowMove"

		"300 90 DrawFleet"
		"300 90 200 40 180 140 ArrowSupport"
		"300 120 DrawArmy"
		"300 120 180 140 ArrowHold"
		"300 150 DrawFleet"
		"300 150 180 140 160 240 ArrowConvoy"

		"\} dup exec -40 200 translate FailedOrder exec OkOrder 40 -200 translate"
				
		"400 200 DrawFleet"
		"400 200 ArrowArrive"
		"400 230 DrawArmy"
		"400 230 ArrowDepart"
		"400 260 DrawFleet"
		"400 260 ArrowRetreatArrive"
		"400 290 DrawArmy"
		"400 290 ArrowRetreatDepart"
		
		"500 200 DrawFleet"
		"500 200 BuildUnit"
		"500 230 DrawArmy"
		"500 230 DestroyUnit"
		"500 260 DrawFleet"
		"500 260 DisbandUnit"
		"500 290 DrawArmy"
		"500 290 RemoveUnit"
		"500 320 DrawFleet"
		"500 320 FindUnit"
		"500 350 DrawArmy"
		"500 350 LoseUnit"
		"500 380 DrawFleet"
		"500 380 QueryUnit"
    }
}
